home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / winterp-1.13 / src-server / wc_Label.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-10-04  |  2.8 KB  |  70 lines
  1. /* -*-C-*-
  2. ********************************************************************************
  3. *
  4. * File:         wc_Label.c
  5. * RCS:          $Header: wc_Label.c,v 1.3 91/03/14 03:14:44 mayer Exp $
  6. * Description:  XM_LABEL_WIDGET_CLASS/XM_LABEL_GADGET_CLASS
  7. * Author:       Niels Mayer, HPLabs
  8. * Created:      Sat Oct 28 01:24:54 1989
  9. * Modified:     Thu Oct  3 21:55:27 1991 (Niels Mayer) mayer@hplnpm
  10. * Language:     C
  11. * Package:      N/A
  12. * Status:       X11r5 contrib tape release
  13. *
  14. * WINTERP Copyright 1989, 1990, 1991 Hewlett-Packard Company (by Niels Mayer).
  15. * XLISP version 2.1, Copyright (c) 1989, by David Betz.
  16. *
  17. * Permission to use, copy, modify, distribute, and sell this software and its
  18. * documentation for any purpose is hereby granted without fee, provided that
  19. * the above copyright notice appear in all copies and that both that
  20. * copyright notice and this permission notice appear in supporting
  21. * documentation, and that the name of Hewlett-Packard and David Betz not be
  22. * used in advertising or publicity pertaining to distribution of the software
  23. * without specific, written prior permission.  Hewlett-Packard and David Betz
  24. * make no representations about the suitability of this software for any
  25. * purpose. It is provided "as is" without express or implied warranty.
  26. *
  27. * HEWLETT-PACKARD AND DAVID BETZ DISCLAIM ALL WARRANTIES WITH REGARD TO THIS
  28. * SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS,
  29. * IN NO EVENT SHALL HEWLETT-PACKARD NOR DAVID BETZ BE LIABLE FOR ANY SPECIAL,
  30. * INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
  31. * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
  32. * OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  33. * PERFORMANCE OF THIS SOFTWARE.
  34. *
  35. * See ./winterp/COPYRIGHT for information on contacting the authors.
  36. * 
  37. * Please send modifications, improvements and bugfixes to mayer@hplabs.hp.com
  38. * Post XLISP-specific questions/information to the newsgroup comp.lang.lisp.x
  39. *
  40. ********************************************************************************
  41. */
  42. static char rcs_identity[] = "@(#)$Header: wc_Label.c,v 1.3 91/03/14 03:14:44 mayer Exp $";
  43.  
  44. #include <stdio.h>
  45. #include <Xm/Xm.h>
  46. #include <Xm/Label.h>
  47. #include <Xm/LabelG.h>
  48. #include "winterp.h"
  49. #include "user_prefs.h"
  50. #include "xlisp/xlisp.h"
  51.  
  52.  
  53. /******************************************************************************
  54.  *
  55.  ******************************************************************************/
  56. Wc_Label_Init()
  57. {
  58.   LVAL o_XM_LABEL_WIDGET_CLASS;
  59.   LVAL o_XM_LABEL_GADGET_CLASS;
  60.   extern LVAL Wcls_Create_Subclass_Of_WIDGET_CLASS(); /* w_classes.c */
  61.  
  62.   o_XM_LABEL_WIDGET_CLASS =
  63.     Wcls_Create_Subclass_Of_WIDGET_CLASS("XM_LABEL_WIDGET_CLASS",
  64.                      xmLabelWidgetClass);
  65.  
  66.   o_XM_LABEL_GADGET_CLASS =
  67.     Wcls_Create_Subclass_Of_WIDGET_CLASS("XM_LABEL_GADGET_CLASS",
  68.                      xmLabelGadgetClass);
  69. }
  70.